CD ROM Paradise Collection 4/CD ROM Paradise Collection 4 1995 Nov.iso/program/swagd_f.zip/DATATYPE.SWG/0004_COMPARE.PAS.pas

Pascal/Delphi Source File | 1993-05-28 | 382b | 23 lines

{
SEAN PALMER

generic compare Function...
make sure to keep garbage out of Strings (by filling With #0
before storing the Strings) and you can compare ANY data With this.
}

Function equal(Var m1, m2; siz : Word) : Boolean; Assembler;
Asm
  push ds
  cld
  les di, m1
  lds si, m2
  mov cx, siz
  xor al, al
  repe cmpsb
  jne @S
  inc al
 @S:
  pop ds
end;